home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 18 Board & Card Games / MASTER.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.0 KB  |  156 lines
  1. 5 POKE808,227
  2. 10 PRINT"[147]         WELCOME TO MASTERMIND"
  3. 15 PRINT"WRITTEN BY KENNETH WELKER[157][157][157][157][157]SOUTH GATE,CALIF.              "
  4. 20 PRINT"NEED INSTRUCTIONS[160](Y/N)
  5. 25 [139] [194](808) [179][177]227 [167] [162]
  6. 30 [161] X$:[139] X$[178]"Y" [167] [137]5000
  7. 40 [139] X$[179][177]"Y" [175] X$[179][177]"N" [167] [137]30
  8. 50 [153]"LOAD               GOOD LUCK!CONT"
  9. 60 [129]TT[178]1[164]2000:[130]:[153]"LOAD"
  10. 100 SC[178]1155:CS[178]55437
  11. 110 [129] X[178]1 [164] 5:[151] SC,81:SC[178]SC[170]2:[130]
  12. 120 [153]"           ------------
  13. 130 AA=INT(RND(1)*8)+1:BB=INT(RND(1)*8)+1:CC=INT(RND(1)*8)+1
  14. 140 DD=INT(RND(1)*8)+1:EE=INT(RND(1)*8)+1
  15. 145 IF AA=7 THEN AA=15
  16. 146 IF BB=7 THEN BB=15
  17. 147 IF CC=7 THEN CC=15
  18. 148 IF DD=7 THEN DD=15
  19. 149 IF EE=7 THEN EE=15
  20. 150 IFAA=BBORAA=CCORAA=DDORAA=EEORBB=CCORBB=DDORBB=EEORCC=DDORCC=EEORDD=EETHEN130
  21. 160 SC=SC+70:CS=CS+70
  22. 200 REM START OF MAIN PROGRAM
  23. 210 GETA$:IF A$="" THEN 210
  24. 212 A=VAL(A$)
  25. 213 IF A>8 OR A<1  THEN210
  26. 215 PRINT A$;
  27. 220 GETB$:IF B$="" THEN 220
  28. 221 B=VAL(B$)
  29. 223 IF B>8 OR B<1  THEN220
  30. 225 PRINT B$;
  31. 230 GETC$:IF C$="" THEN 230
  32. 231 C=VAL(C$)
  33. 233 IF C>8 OR C<1  THEN 230
  34. 235 PRINT C$;
  35. 240 GETD$:IF D$="" THEN 240
  36. 241 D=VAL(D$)
  37. 243 IF D>8 OR D<1  THEN 240
  38. 245 PRINT D$;
  39. 250 GETE$:IF E$="" THEN 250
  40. 251 E=VAL(E$)
  41. 253 IF E>8 OR E<1  THEN 250
  42. 255 PRINT E$;
  43. 256 IF A=7 THEN A=15
  44. 257 IF B=7 THEN B=15
  45. 258 IF C=7 THEN C=15
  46. 259 IF D=7 THEN D=15
  47. 260 IF E=7 THEN E=15
  48. 261 POKE SC,81:POKECS,A-1:SC=SC+2:CS=CS+2
  49. 270 POKE SC,81:POKECS,B-1:SC=SC+2:CS=CS+2
  50. 280 POKE SC,81:POKECS,C-1:SC=SC+2:CS=CS+2
  51. 290 POKE SC,81:POKECS,D-1:SC=SC+2:CS=CS+2
  52. 300 POKE SC,81:POKECS,E-1:SC=SC+2:CS=CS+2
  53. 305 T=0:U=0
  54. 310 IF A  =AA THEN T=T+1:GOTO320
  55. 311 IF A  =BB THEN U=U+1:GOTO320
  56. 312 IF A  =CC THEN U=U+1:GOTO320
  57. 313 IF A  =DD THEN U=U+1:GOTO320
  58. 314 IF A  =EE THEN U=U+1:GOTO320
  59. 320 IF B  =BB THEN T=T+1:GOTO330
  60. 321 IF B  =AA THEN U=U+1:GOTO330
  61. 322 IF B  =CC THEN U=U+1:GOTO330
  62. 323 IF B  =DD THEN U=U+1:GOTO330
  63. 324 IF B  =EE THEN U=U+1:GOTO330
  64. 330 IF C  =CC THEN T=T+1:GOTO340
  65. 331 IF C  =AA THEN U=U+1:GOTO340
  66. 332 IF C  =BB THEN U=U+1:GOTO340
  67. 333 IF C  =DD THEN U=U+1:GOTO340
  68. 335 IF C  =EE THEN U=U+1:GOTO340
  69. 340 IF D  =DD THEN T=T+1:GOTO350
  70. 341 IF D  =AA THEN U=U+1:GOTO350
  71. 342 IF D  =BB THEN U=U+1:GOTO350
  72. 343 IF D  =EE THEN U=U+1:GOTO350
  73. 344 IF D  =CC THEN U=U+1:GOTO350
  74. 350 IF E  =EE THEN T=T+1:GOTO400
  75. 351 IF E  =AA THEN U=U+1:GOTO400
  76. 352 IF E  =BB THEN U=U+1:GOTO400
  77. 353 IF E  =CC THEN U=U+1:GOTO400
  78. 354 IF E  =DD THEN U=U+1:GOTO400
  79. 400 IF T=1 THEN POKE SC+5,30:POKE CS+5,0
  80. 410 IFT=2THEN POKE SC+5,30:POKE CS+5,0:POKE SC+7,30:POKE CS+7,0
  81. 420 IFT=3THENPOKESC+5,30:POKECS+5,0:POKESC+7,30:POKECS+7,0:POKESC+9,30:POKECS+9,0
  82. 430 IFT=4THENPOKESC+5,30:POKECS+5,0:POKESC+7,30:POKECS+7,0:POKESC+9,30:POKECS+9,0
  83. 435 IF T=4 THEN POKESC+11,30:POKECS+11,0
  84. 440 IFT=5 THENPOKESC+5,30:POKECS+5,0:POKESC+7,30:POKECS+7,0:POKESC+9,30
  85. 445 IFT=5THENPOKECS+9,0:POKESC+11,30:POKECS+11,0:POKESC+13,30:POKECS+13,0:GOTO9000
  86. 450 IFU=1 AND T=1 THEN POKE SC+7,30:POKE CS+7,2
  87. 452 IFU=1 AND T=2 THEN POKE SC+9,30:POKE CS+9,2
  88. 453 IFU=1 AND T=3 THEN POKE SC+11,30:POKE CS+11,2
  89. 454 IFU=1 AND T=4 THEN POKE SC+13,30:POKE CS+13,2
  90. 455 IFU=2 AND T=1 THEN POKE SC+7,30:POKE CS+7,2:POKE SC+9,30:POKECS+9,2
  91. 456 IFU=2 AND T=2 THEN POKE SC+9,30:POKE CS+9,2:POKESC+11,30:POKE CS+11,2
  92. 457 IFU=2 AND T=3 THEN POKE SC+11,30:POKE CS+11,2:POKE SC+13,30:POKE CS+13,2
  93. 458 IFU=3ANDT=1THENPOKESC+7,30:POKECS+7,2:POKESC+9,30:POKECS+9,2:POKESC+11,30:POKECS+11,2
  94. 459 IFU=3ANDT=2THENPOKESC+9,30:POKECS+9,2:POKESC+11,30:POKECS+11,2:POKESC+11,30:POKECS+13,2
  95. 460 IFU=4ANDT=1THENPOKESC+7,30:POKECS+7,2:POKESC+9,30:POKECS+9,2:POKESC+11,30:POKECS+11,2
  96. 462 IFU=4 AND T=1 THEN POKE SC+13,30:POKE CS+13,2
  97. 480 IFU=1ANDT=0    THEN POKE SC+5,30:POKE CS+5,2
  98. 482 IFU=2 AND T=0 THEN POKE SC+5,30:POKE CS+5,2:POKE SC+7,30:POKE CS+7,2
  99. 484 IFU=3ANDT=0THENPOKESC+5,30:POKECS+5,2:POKESC+7,30:POKECS+7,2:POKESC+9,30:POKECS+9,2
  100. 485 IFU=4ANDT=0THENPOKESC+5,30:POKECS+5,2:POKESC+7,30:POKECS+7,2:POKESC+9,30:POKECS+9,2
  101. 486 IFU =4AND T=0 THEN POKESC+11,30:POKECS+11,2
  102. 487 IFU=5ANDT=0 THEN POKE SC+5,30:POKECS+5,2:POKE SC+7,30:POKECS+7,2:POKESC+9,30
  103. 488 IFU=5THENPOKECS+9,2:POKESC+11,30:POKECS+11,2:POKESC+13,30:POKECS+13,2
  104. 490 IFA=BORA=CORA=DORA=EORB=CORB=CORB=DORB=EORC=DORC=EORD=E THEN KS=1
  105. 491 IFKS=1 THEN KS=0:PRINT" NO TWO COLORS ARE THE SAME    [145]"
  106. 500 AT=AT+1
  107. 510 IF AT>14 THEN GOTO 6000
  108. 520 SC=SC+30:CS=CS+30:PRINT:GOTO200
  109. 5000 PRINT"[147] THIS GAME REQUIRES THAT YOU GUESS THE   FIVE COLORS I HAVE CHOSEN"
  110. 5020 PRINT"NOT ONLY DO YOU HAVE TO GUESS THE COLORSBUT ALSO THE ORDER
  111. 5030 [153]"YOU WILL BE GIVEN ONLY 15 CHANCES TO    GUESS CORRECTLY
  112. 5040 PRINT"YOU WILL BE GIVEN HINTS..IF YOU GET THE COLOR CORRECT BUT NOT THE ";
  113. 5050 PRINT"ORDER YOU WILL BE GIVEN A RED ARROW (^[154])"
  114. 5060 PRINT"IF YOU GET BOTH THE COLOR AND POSITION  CORRECT YOU WILL BE GIVEN
  115. 5070 [153] "A BLACK ARROW(STOP^CONT)
  116. 5071 PRINT"
  117. 5073 [153]"  HIT ANY KEY TO CONTINUE"
  118. 5074 [153]"  HIT ANY KEY TO CONTINUE"
  119. 5075 [153]"  HIT ANY KEY TO CONTINUE"
  120. 5076 [153]"  SYSHIT ANY KEY TO CONTINUE"
  121. 5077 [161] X$:[139] X$[178]"" [167] 5073
  122. 5079 [153]"WAIT                           "
  123. 5080 [153]"CONTUSE THE NUMBER KEYS TO SELECT THE COLORS1=BLACK 2=WHITE 3=RED ETC.
  124. 5090 PRINT"TO ENTER THE NUMBERS ENTER THEM ON ONE  LINE IE 12345
  125. 5100 [153] "THAT WOULD BE BLACK WHITE RED CYN PURPLE
  126. 5120 PRINT"
  127. 5173 [153]"  HIT ANY KEY TO CONTINUE"
  128. 5174 [153]"  HIT ANY KEY TO CONTINUE"
  129. 5175 [153]"  HIT ANY KEY TO CONTINUE"
  130. 5176 [153]"  SYSHIT ANY KEY TO CONTINUE"
  131. 5177 [161] X$:[139] X$[178]"" [167] 5173
  132. 5200 [137]50
  133. 6000 SC[178]1155:CS[178]55427
  134. 6010 [139] K[178]1 [167] [142]
  135. 6020 [151] CS,AA[171]1:CS[178]CS[170]2
  136. 6030 [151] CS,BB[171]1:CS[178]CS[170]2
  137. 6040 [151] CS,CC[171]1:CS[178]CS[170]2
  138. 6050 [151] CS,DD[171]1:CS[178]CS[170]2
  139. 6060 [151] CS,EE[171]1:CS[178]CS[170]2
  140. 6100 [143]
  141. 6110 [139] K[178]1 [167] [142]
  142. 6111 [139] AA[178]15[167]AA[178]7
  143. 6112 [139] BB[178]15 [167] BB[178]7
  144. 6113 [139] CC[178]15 [167] CC[178]7
  145. 6114 [139] DD[178]15 [167] DD[178]7
  146. 6115 [139] EE[178]15 [167] EE[178]7
  147. 6120 [153]"CMDCMDCMDCMD     YOU LOST THE ANSWER IS (";AA;"CMD";BB;"CMD";CC;"CMD";DD;"CMD";EE")
  148. 6130 GET X$:IFX$="" THEN 6130
  149. 6140 RUN
  150. 9000 REM
  151. 9001 PRINT"YOU WIN":PRINT"PLAY AGAIN?"
  152. 9010 K=1:               GOSUB 6000
  153. 9020 GETX$:IFX$=""THEN 9020
  154. 9030 IFX$="Y" THEN  RUN
  155. 9040 GOTO9020
  156.